#' Get HTTP status codes
#'
#' @export
#' @seealso [ping()]
#' @examples
#' status_codes()
status_codes <- function() {
  c(
    100,101,102,200,201,202,203,204,205,206,207,208,226,300,301,302,
    303,304,305,306,307,308,400,401,402,403,404,405,406,407,408,409,
    410,411,412,413,414,415,416,417,418,419,420,422,423,424,425,426,
    500,501,502,503,504,505,506,507,508
  )
}
